﻿Module Module1
    Dim kk As New MyVbUtilities.myUtilities
    Sub Main()

        '<add key="MailServerAddress" value="smtp.gmail.com"/>
        '    <add key="MailFromPassword" value="ombscom1234"/>
        '    <add key="MailFrom" value="om@bscommatrix.com"/>
        '    <add key="SMTPServerPort" value="25"/>
        Try
            Dim mailto() As String = {"olamidejames007@gmail.com"}
            Dim mailcc() As String = {"oakinnagbe@bscommatrix.com"}

            System.Console.WriteLine("Sending email...")
            kk.SendMailOut("om@bscommatrix.com", mailto, "Olamide James", "Testing MyVbUtilities SendOutMail", "This mail is from MyVbUtilities SendMailOut Function", "smtp.gmail.com", 587, "om@bscommatrix.com", "ombscom1234", "olamidejames007@gmail.com", mailcc)

            System.Console.WriteLine("successful")
            System.Console.ReadLine()
        Catch ex As Exception
            System.Console.WriteLine(ex.Message)
            System.Console.ReadLine()
        End Try

    End Sub

End Module
